<% id =request.QueryString("id") set rs=Server.CreateObject("Adodb.Recordset") sql="select * from article where Deleted=False and articleid="&clng(id) rs.open sql,conn,1,1 dim key if not rs.eof and not rs.bof then title=rs("title") classid=rs("classid") content=replace(rs("content"),"UploadFiles/",adminpath&"UploadFiles/") updatetime=rs("updatetime") author=rs("author") copyfrom=rs("copyfrom") key=rs("key") end if %> <%= title %>-山东淄川三峰社会福利硅碳棒厂
    您现在的位置 硅碳棒厂 >> 文章列表 >> 详细资料
<%if ubound(ContentStr)<>0 then%> <%end if%>
 
<%= title %>

<%=copyfrom&" "&author&" "&updatetime%>
 
<% If Request("page")="" Then pageNum=0 Else pageNum=Request("page") End if %> <% dim ContentStr,Content content=rs("content") ContentStr=split(Content,"|||") For i=pageNum to pageNum %> <%=ContentStr(i) %>

    山东淄川三峰社会福利硅碳棒厂网址:http://www.sdnamite.com 欢迎您的光临!

<% Next %>
本文共分 <% i=1 dim o o=Request("page") o=o+1 For p = 0 to ubound(ContentStr) if o<>i then %> <%=p+1%> <% else response.Write(""&p+1&"") end if %> <% i=i+1 Next %> 页